منتـــدى فيـجــوال بيـســك دوت نيــت - فائدة : تعلم كيف تربط برنامجك مع قاعدة بيانات على الانترنت

بسم الله الرحمن الرحيم

أنقر هنا لتتتابع آخر أخبار العدوان الصليبي على العراق المسلم

اللهم يا غياث المستغيثين..ويا صريخ المستصرخين..ويا عون المؤمنين..ويا جار المستجيرين..يا ذا العظمة والسلطان..يا من قصمت القياصرة..وقَهرت الجبابرة..وخضعت لك أعناق الفراعنة .. اللهم سلط على اليهود و الأمريكيين الريح القواصم..والبراكين والعواصف..واملأ قلوبهم بالرعب والخوف. اللهم نكس لهم كل راية..وحُل بينهم وبين كل غاية. اللهم احفظ إخواننا في العراق و انصرهم على عدوهم يا الله . اللهم سلط على اليهود و الأمريكان من والاهم فتنةً سوداء..تمزقُ قوتهم..وتحرقُ أئمتهم..وتَشرب دماءهم..وتخطفُ أبصارهم..وتُذهبُ عقولهم..وتُخرب بيوتهم..وتنكسُ راياتهم..بقوتك يا متين..يا قوى يا متين..يا ذا الجلال والإكرام..والجاه والسلطان.

للحصول على نسخة من كتاب (برمجة إطار عمل .NET باستخدام VB.NET) للكاتب تركي العسيري .. أنقر هنا

منتـــدى فيـجــوال بيـســك دوت نيــت أقسام الإصدارات القديمة من فيجوال بيسك 5.0 و 6.0 قسم برمجة قواعد البيانات باستخدام الاصدارات القديمة من فيجوال بيسك فائدة : تعلم كيف تربط برنامجك مع قاعدة بيانات على الانترنت

عدد الصفحات » (6): 1 2 3

الموضوع السابق الموضوع التالي

الكاتب

الموضوع

MrZ
مبرمج

تاريخ التسجيل » Mar 2002

البلد » سوريا - حلب

عدد المشاركات » 567

بمعدل » 0.74 مشاركة لكل يوم

فائدة : تعلم كيف تربط برنامجك مع قاعدة بيانات على الانترنت

بسم الله الرّحمن الرّحيم

إنّ عملية الاتصال بقاعدة بيانات أكسس على الإنترنت هي عملية سهلة ، ولكنها في غالب الأحيان ليست مجانية ، فعلى سبيل المثال يمكنك ربط برنامجك مع قاعدة بيانات على الإنترنت من خلال نظام التشغيل ويندوز مع مزود ويب IIS ضمن بروتوكول HTTP ويقوم بتبادل البيانات على هيئة XML أو هيئة خاصة بـ ADO ولعمل ذلك يمكنك اتباع خطوات تفعيل خدمة RDS ، يمكنك مراجعة المقال هنا

و لا أعتقد أن أحداً يقدم هذه الخدمة بشكل مجاني ، لذلك فإنّ الحل حالياً يكمن في تصميم برنامج يقوم بالتعامل غير المباشر مع قاعدة البيانات تلك ، فما السبيل إلى ذلك ؟

خطرت لي الفكرة عندما كنت أقرأ المقال السابق عندما اقترح الأخ مدني حلاً لمشكلة الاتصال بقاعدة بيانات على الإنترنت بأن نضع Script ضمن صفحة ASP في موقع يقبل التعامل مع ASP وليكن http://www.brinkster.com/ ، هذا السكريبت يقوم بعملية الاتصال الداخلي بقاعدة البيانات الموجودة على الموقع المستضيف وينشئ معها اتصال باستخدام ADODB.Connection ، وكانت فكرة الأخ مدني بأن يقوم هذا السكريبت باستقبال استعلام SQL المراد تنفيذه على قاعدة البيانات ، وتكون طريقة الاستقبال تلك بأن يكون الاستعلام على شكل جزء من عنوان صفحة ال ASP التي تحتوي على السكريبت الهدف:

code:

www23.brinkster.com/MySite/MyPage.asp?query=SELECT*FROM mytable_tbl

عندها سيقوم السكريبت بتنفيذ الاستعلام الموجود بعد المتغير query ، ويقوم السكريبت بحفظ نتائج الاستعلام الموجودة في (ADODB.Recordset) ضمن ملف نصي عادي على السير فر المضيف ومن ثمّ يرسل البيانات من الملف النصي إلى برنامج الفيجول بيسك الموجود على حاسبك الشخصي باستخدام (ADODB.Stream) ، هذه هي طريقة الأخ مدني ، وقد اختلفت معه فقط بالعملية الأخيرة وحسب، أي في إعادة نتائج الاستعلام إلى برنامج الفيجول بيسك ، وذلك بسبب رئيسي : هو أن طريقة الأخ مدني في حفظ ال Recordset ضمن ملف نصي ومن ثم إرساله عن طريق Stream لن يقبلها السير فر لأنّ هذه العملية تتطلّب إنشاء ملف على السير فر(الملف النصي) وهذه الخدمة ليست مجانية !
إذا ما العمل ؟ الحل الذي توصلت إليه بفضل الله هو كالتالي :

1- نستخدم أداة Microsoft Transfer Control أي (Inet1) في إرسال رابط صفحة ال ASP التي تحتوي على السكريبت ونرفق مع رابط الصفحة الاستعلام المطلوب تنفيذه كما ذكرنا منذ قليل :

code:

Result = Inet1.OpenURL(“www23.brinkster.com/vbcontrol/datasheet.asp?query=SELECT*FROM PersonData_tbl”)

نلاحظ أن القيمة المعادة سنحتفظ بها في المتغير النصي Result

2- عند تنفيذ العبارة السابقة سيقوم السكريبت بإنشاء اتصال مع قاعدة البيانات Pdata.mdb الموجودة على السير فر ويقوم باستخلاص جميع سجلات الجدول PersonData_tbl ويضعها ضمن كائن Recordset .
3- ستقوم الآن خوارزمية موجودة ضمن السكريبت بتحويل محتويات ال Recordset إلى شيفرة نصية خاصة ستقوم بإعادتها إلى برنامجنا ، وستحفظ هذه الشيفرة ضمن المتغير Result كما ذكرت.

4- بخوارزمية معاكسة سنقوم بتحويل هذه الشيفرة إلى معلومات ونخزنها ضمن Recordset جديد ومن ثم نظهرها باستخدام الأداة Microsoft Hierarchical FlexGrid Control :

code:

Set grdShowData.Recordset = RS

ملاحظات :

- الشيفرة النصية المعادة من السكريبت ستكون من الشكل :

code:

SOD;Fields:عدد الحقول;اسم الحقل1; ];اسم الحقل2; ];اسم الحقل3;…;Records:عدد السجلات;قيمة الحقل الأول في السجل الأول;….;قيمة الحقل الأخير في السجل الأخير;

كما نرى أنّ الفاصلة المنقوطة ; تشير إلى المعلومة التي تسبقها ، يمكنك استخدام هذه الشيفرة دون أي تعديل في أي من مشاريعك المستقبلية لأنّها تعتمد على محتويات ال Recordset فقط.

- يمكنك استخدام أي نوع من استعلامات SQL مثل : SELECT ,INSERT,UPDATE,DELETE ولكنّك لن تستطيع استخدام الاستعلام DELETE مع قاعدة البيانات Pdata.mdb وسيعود لك السكريبت بالقيمة النصية illegal command خوفاً أن يقوم بعض الأخوة

بتجربة معارفهم على قاعدة البيانات التي لدي ومن ثمّ حذف جميع السجلات J وكذلك الأمر بالنسبة للتعليمة DROP.

- يمكنك في حال استخدام أكثر من جدول أن تربط بينهما بأي شكل ممكن حسب تعليمات SQL كما في قاعدة بيانات محلية تماماً.

- استخدام الأحرف العربية مع الأسف سيؤدي إلى قيم غير مفهومة عند استعراض البيانات ، لا أدري ما السبب ولكن ربما موقع Brinkster.com لا يدعم ذلك ، على العموم هناك حل آخر ولكن حالياً دعونا نجرب ما وصلنا إليه إلى الآن ولنستخدم الأحرف اللاتينية.

- الملفات المرفقة مع الموضوع تحتوي على برنامج قمت بتصميمه يقوم بالتعامل مع قاعدة البيانات Pdata.mdb الموجودة في موقعي www23.brinkster.com/vbcontrol ، يمكنك تجربة البرنامج واستخدام إمكانياته ، وأرجو من كل شخص يستخدمه تسجيل شيء ما في قاعدة البيانات ، كما تحتوي على النص الكامل للسكريبت الذي ستحفظه في صفحة ضمن الموقع brinkster.com.

مع تمنياتي بالتوفيق.

لتنزيل الملف المرفق أنقر الرابط التالي: cdoi.zip بلا مسؤلية على المنتدى إن كان المرفق يحتوي على فيروسات أو وسائل تجسس
تم تحميل هذا الملف 617 مرة.

__________________
بسم الله ماشاء الله لايسوق الخير إلاّ الله
بسم الله ماشاء الله لا يصرف السوء إلاّ الله
بسم الله ماشاء الله ماكان من نعمة فمن الله
بسم الله ماشاء الله لاحول ولاقوّة إلاّ بالله

سلسلة التحكم بمنفذ الطابعة:
-------------------------------------
الدرس الأول

الدرس الثاني(غير مفعّل حالياً)

الدرس الثالث

الدرس الرابع(غير مفعّل حالياً)

الدرس الخامس

اتصالات:
----------
تعلم كيف تستخدم جهاز الهاتف العادي لكتابة اسمك على شاشة جهازك !!

فائدة : تعلم كيف تربط برنامجك مع قاعدة بيانات على الانترنت

مقالات أخرى:
-----------------
فائدة : برنامج يقوم بمراقبة عمليات الدخول إلى الجهاز والإنترنت محمي بكلمة مرور

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

27-06-2003 12:48 PM

MrZ
مبرمج

تاريخ التسجيل » Mar 2002

البلد » سوريا - حلب

عدد المشاركات » 567

بمعدل » 0.74 مشاركة لكل يوم

بسم الله الرّحمن الرّحيم

أجريت تعديلاً بسيطاً على البرنامج المرفق ..

لتنزيل الملف المرفق أنقر الرابط التالي: cdoi.zip بلا مسؤلية على المنتدى إن كان المرفق يحتوي على فيروسات أو وسائل تجسس
تم تحميل هذا الملف 486 مرة.

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

27-06-2003 03:41 PM

المنصوري
عضو فعال

تاريخ التسجيل » Sep 2002

البلد » المملكة العربية السعوديـة - جـــدة

عدد المشاركات » 175

بمعدل » 0.30 مشاركة لكل يوم

هل يمكن أن تعمل في موقعي (كيف أغير البرنامج ليتلائم معي)
ما نوع قاعدة البيانات المستخدمة.
وما نوع الملفات التي في السيرفر ؟

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

27-06-2003 05:09 PM

إضغط هنا لإرسال رسالة شخصية لــ المنصوري

MrZ
مبرمج

تاريخ التسجيل » Mar 2002

البلد » سوريا - حلب

عدد المشاركات » 567

بمعدل » 0.74 مشاركة لكل يوم

بسم الله الرّحمن الرّحيم

أخي الكريم من المؤكّد أنّك لم تقرأ الدرس !!

فلقد ذكرت أنّي أستخدم قواعد بيانات أكسس
وأنّي أيضاً أستخدم موقع يدعم ASP
ولقد ذكرت أنّ هذا الموقع brinkster.com

هداك الله وإيّاي ..

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

27-06-2003 07:43 PM

احمد حمادة
مبرمج

تاريخ التسجيل » Jul 2002

البلد » سورية

عدد المشاركات » 146

بمعدل » 0.23 مشاركة لكل يوم

موضوع حلو

بس انا تعاملي مع php فهل استطيع الاتصال بقاعدة البيانات بنفس الطريقة .
اظن لا طيب اشو الحل

و بالمناسبة قاعدة بياناتي نو Mysql

__________________
إذا كان لديك رغيفان من الخبز فبع احدهما واشتر بثمنه باقة زهر فالخبز غذاء للجسد والزهر غذاء للروح

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

29-06-2003 12:50 AM

إضغط هنا لإرسال رسالة شخصية لــ احمد حمادة

محمد مهيان
مشرف عــام

تاريخ التسجيل » Jun 2000

البلد » الدوحة - قطر

عدد المشاركات » 773

بمعدل » 0.55 مشاركة لكل يوم

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة

اعتقد بانه من الافضل ارسال النتيجة كما في مثال الاخ مدني
وبخصوص انشاء ملف نصي على السيرفر فلا يحتاج الامر الى ذلك على ما اعتقد وجربت الطريقة التاليه و نجحت

هذا كود الاخ مدني بعد التعديل

code:

Response.Buffer = True
Response.Clear
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("\news\database\project.mdb")

Set s = Server.CreateObject("ADODB.Stream")
Set rs = Server.CreateObject("ADODB.RecordSet")

selectSQL = Request("query")
rs.Open selectSQL, ConnectionString, 3, 3
rs.save s

 Response.AddHeader "Content-Disposition", "attachment; filename=anyname.bin"
 Response.AddHeader "Content-Length", s.Size
 Response.Charset = "UTF-8"
 Response.ContentType = "application/octet-stream"
 Response.BinaryWrite s.Read
 Response.Flush
 s.Close
 Set s = Nothing

جزاك الله الف خير على هذا المجهود

__________________
مع تحياتي و تمنياتي للجميع بالتوفيق

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

29-06-2003 09:52 AM

إضغط هنا لإرسال رسالة شخصية لــ محمد مهيان

h_a_c_k_e_r_g_y
مبرمج وخبير بالهكرز

تاريخ التسجيل » Nov 2001

البلد » Syria

عدد المشاركات » 1012

بمعدل » 1.15 مشاركة لكل يوم

السلام عليكم

أخ Mr.Z شكرا جزيلاً

والله انك .....ما بعرف شو قول والله كتتر خيرك والله يعطيك ألف ألف عافية والله يوفقك , البرنامج شغغال مية بالمية . انا كان بدي مثل هذا البرنامج من زمان , شكرا الك كتير يا اخي العزيز والله يوفقك .

أنا لح شوف كود البرنامج هلق

شكرا

__________________
_-_المعرفة هي القوة_-_
لدي خبرة في الهاكرز والكراكرز
hackergy@hotvoice.com
--<برامجي بـ VB 6>--
برنامج رمضاني + تقنية تشغيل صوت مستخرج من EXE
للأخوان الجدد بـ VBفتح صفحة انترنت + ارسال بريد الكتروني
اذا اردت ان يتوقف برنامجك لفترة تفضل دالة التأخير الزمني
تريد التحكم بقواعد بيانات عن طريق الأداة Data ؟ أنظر هنا
الآن كيفية التحكم بقاعدة بيانات عن بعد(على الشبكة المحلية أو الانترنت) مع التحقق بكلمة مرور للمستخدم

--<VB .Net>--
الهندسة العكسية و برامج Net. (الحل)

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

29-06-2003 12:34 PM

إضغط هنا لإرسال رسالة شخصية لــ h_a_c_k_e_r_g_y

إضغط هنا لإرسال بريد لــ h_a_c_k_e_r_g_y

MrZ
مبرمج

تاريخ التسجيل » Mar 2002

البلد » سوريا - حلب

عدد المشاركات » 567

بمعدل » 0.74 مشاركة لكل يوم

بسم الله الرّحمن الرّحيم

شكراً جزيلاً للإطراء الذي لاأستحقه ، فالشكر للّه أولاً ، ثمّ للأخوين محمد مهيان والمدني ثانياً اللذان أرشداني لهذه الطريقة ، وما أنا إلاً تلميذ يتعلّم منهم ..

بالنسبة لطريقتك أخي الكريم محمد مهيان ، من فضلك عندما استخدمت rs.save s ، ف s تمثّل هنا الكائن ADODB.Stream وليس المسار الذي سنحفظ فيه الملف ، أم أنّي لم أفهم إلى ماترميه إليه ، فأرجو التوضيح ، خصوصاً وأنّ طريقتك هي الأفضل لاشك في استخدام Stream.

بالنسبة للأخ أحمد حمادة ، بالنسبة ل PHP لاأعلم .

ولكم الشكر ، متمنياً الإستفادة من الفكرة.

تم تحريره من قبل MrZ في 29-06-2003 عند08:06 PM

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

29-06-2003 07:56 PM

arryan
مبرمج محترف

تاريخ التسجيل » Jul 2002

البلد » السعوديه

عدد المشاركات » 276

بمعدل » 0.43 مشاركة لكل يوم

السلام عليكم ورحمة اله وبركاته

جميل جدا ويعطيكم الف عافيه

__________________
برنامج التقرير المسلسل

فارقت موضع مرقدي
يوما ففارقني السكون!
القبر اول ليلة
بالله قل لي مايكون ؟!

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

29-06-2003 09:34 PM

محمد مهيان
مشرف عــام

تاريخ التسجيل » Jun 2000

البلد » الدوحة - قطر

عدد المشاركات » 773

بمعدل » 0.55 مشاركة لكل يوم

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة

نعم صحيح يمكنك استخدام rs.save لحفظ الناتج في كائن ADODB.Stream مباشره

ملاحظة ( استخدم adPersistADTG مع rs.save ، لانه اقل في الحجم )

وعلى كل حال ، جرب فالتجربة خير برهان ،،،

__________________
مع تحياتي و تمنياتي للجميع بالتوفيق

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

30-06-2003 04:07 AM

MrZ
مبرمج

تاريخ التسجيل » Mar 2002

البلد » سوريا - حلب

عدد المشاركات » 567

بمعدل » 0.74 مشاركة لكل يوم

بسم الله الرّحمن الرّحيم

ممتاز أخ محمد ، ولكن كيف سأحصل على المعلومات من الموقع (صفحة ال ASP) هل عن طريق نفس برنامجي مع أداة Inet1 ؟

وإذا كان كذلك كيف سأستخدم الكائن Stream مرة أخرى لوضع المعلومات في ال Recordset ؟

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

30-06-2003 06:30 PM

محمد مهيان
مشرف عــام

تاريخ التسجيل » Jun 2000

البلد » الدوحة - قطر

عدد المشاركات » 773

بمعدل » 0.55 مشاركة لكل يوم

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة

في برنامجك لا تحتاج الى Inet1 و ADODB.Stream
حتى ADODB.Connection غير مهم

انت تحتاج فقط الى ADODB.Recordset
واستخدمة كالتالي.

code:

Dim rs As New ADODB.Recordset
rs.Open "www23.brinkster.com/MySite/MyPage.asp?query=SELECT*FROM mytable_tbl"

__________________
مع تحياتي و تمنياتي للجميع بالتوفيق

أخبر المراقب عن هذا الرد | رقم الـ IP | تحرير التوقيع

01-07-2003 03:38 AM

جميع الأوقات بتوقيت » المملكة العربية السعودية | الوقت الآن » 10:30 PM

عدد الصفحات » (6): 1 2 3

الموضوع السابق الموضوع التالي

[

عرض نسخة للطبع |

إرسال الموضوع لصديق |

إستقبل جديد هذا الموضوع ]

الإنتقال إلى:

تقييم هذا الموضوع:

قوانين المنتدى:

notتستطيع كتابة موضوع جديد
notتستطيع كتابة رد جديد
not تستطيع إرسال مرفقات جديدة
not تستطيع تعديل مشاركتك

شفرات HTML » غير متاح
شفرات vB » متاح
الإبتسامات » متاح
شفرة [IMG] » متاح